;; (defun show-squares (start end)
;;     (do ((i start (+ i 1)))
;;         ((> i end) 'done)
;;         (format t "~A ~A~%" i (* i i))
;;     )
;; )
;; (show-squares 2 5)

(defun show-squares (i end)
    (if (> i end)
        'done
        (progn
            (format t "~A ~A~%" i (* i i))
            (show-squares (+ i 1) end)))
)
(show-squares 2 5)